在窗体上放置一个文本框和一个按钮，如何在文本框中只输入数字，输入其它字符时文本内容不做变化，
按下按钮将文本框的内容转化为数值赋给一个变量，改变文本框内容，改变变量值。
还有，在其它窗体中调用上述变量，该注意什么，我怎么调用都不成功。
谢谢大虾们了！！！

if text1.text<55 and text1.text<97 then text`1.visible =true
else
text1.visible=false

不好意思~！这个可能错了`！让我在想一下

用ascii 码 来判断

用ISNUMERIC函数

Private Sub Text1_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case Asc("0") To Asc("9"), vbKeyBack '允许0~9数字和退格键

Case Asc(".") '允许一个小数点
If Instr(1, Text1.Text, ".") > 0 Then KeyAscii = 0
Case Else
KeyAscii = 0
Beep '其他的发出Beep声音
End Select
End Sub

Dim TXT As String

Private Sub Form_Load()
TXT = Text1
End Sub

Private Sub Text1_Keyup(KeyCode As Integer, Shift As Integer)
If Text1 <> "" Then
Dim Str As String
Str = Right(Text1.Text, 1)
If Not (StrComp(Str, "0") <> -1 And StrComp("9", Str) <> -1) Then '输入的字符在1-9之外
Text1.Text = ""
Clipboard.SetText TXT
Text1.SelText = Clipboard.GetText()
End If
End If
TXT = Text1
End Sub

If Not IsNumeric(Text1.Text) And Not IsNull(Text1.Text) And Trim(Text1.Text) <> "" And Trim(Text1.Text) <> "-" And Trim(Text1.Text) <> "." Then
MsgBox "输入只能是货币数据！"
Text1.Text = Format(0, "#0.00")
End If

这是我用的输入货币数据的一段小程序,不知道你用不用得到

6楼正解!