Private Sub Text1_KeyPress(KeyAscii As Integer)
KeyAscii = ValiText(KeyAscii, "0123456789+-", True)
End Sub

Function ValiText(KeyIn As Integer, ValidateString As String, Editable As Boolean) As Integer
Dim ValidateList As String
ValidateList = IIf(Editable, UCase(ValidateString) & Chr(8), UCase(ValidateString))
ValiText = IIf(InStr(ValidateList, UCase(Chr(KeyIn))), KeyIn, 0)
End Function

现在就可以过滤掉你不希望的字符了，只接受第二个参数提供的字符，即："0123456789+-" 而函数的第三个参数决定了能否使用 [Backspace] 键。

=SQRT(C3^2+D3^2)*COS(((E6-B6)*PI()/180)+ACOS(C3/SQRT(C3^2+D3^2)))

上面的公式在VB中如何表达.
有8格Textlabe和一格按钮Command1,当点击按钮时.如何引用上面的公式,
C3,D3E6,B6,在Execl中表示单元格,移植倒vb中用Textlabe是如何表示的.
谢谢