Private Sub Command1_Click() strtmp = Text1.Text nlen = Len(strtmp) k = 1 For i = 1 To nlen j = Asc(Mid(strtmp, i, 1)) If j < 47 Or j > 58 Then k = 2 End If Next i If k <> 2 Then Text2.Text = Val(Text1.Tex