在VBA中判断三角形类型，你需要遵循以下步骤：
获取三条边的长度
用户通过输入框输入三角形的三条边长。
验证边长是否合法
确保每条边的长度都大于0，否则不能构成三角形。
判断是否能构成三角形
使用三角形不等式定理，即任意两边之和大于第三边。
判断三角形的类型
如果三条边长度都相等，则为等边三角形。
如果只有两条边长度相等，则为等腰三角形。
如果满足勾股定理，则为直角三角形。
如果以上条件都不满足，则为普通三角形。
```vba
Private Sub Command1_Click（）
Dim a As Double
Dim b As Double
Dim c As Double
Dim s As String
' 获取用户输入的三条边长
a = Val（InputBox（"请输入第一条边长："））
b = Val（InputBox（"请输入第二条边长："））
c = Val（InputBox（"请输入第三条边长："））
' 验证边长是否合法
If a <= 0 Or b <= 0 Or c <= 0 Then
MsgBox "边长必须大于0，请重新输入。"
Exit Sub
End If
' 判断是否能构成三角形
If a + b > c And a + c > b And b + c > a Then
' 判断三角形的类型
If a = b And b = c Then
s = "等边三角形"
ElseIf a = b Or a = c Or b = c Then
s = "等腰三角形"
ElseIf a^2 + b^2 = c^2 Or a^2 + c^2 = b^2 Or b^2 + c^2 = a^2 Then
s = "直角三角形"
Else
s = "任意三角形"
End If
Else
s = "不能构成三角形!"
End If
' 显示结果
MsgBox "这三条边构成的图形为： " & s
End Sub
```
代码解释：
输入边长
使用`InputBox`函数获取用户输入的三条边长。
验证边长
检查每条边长是否大于0，如果不是，则显示错误消息并退出程序。
判断是否能构成三角形
使用`If`语句检查是否满足三角形不等式定理。
判断三角形类型
使用`If...ElseIf...Else`语句判断三角形的类型，并设置相应的字符串变量`s`。
显示结果
使用`MsgBox`函数显示三角形类型的结果。
通过以上步骤和代码，你可以在VBA中实现三角形类型的判断。