Listing Program VB 6.0 untuk menginput angka saja

Adapun listingnya
Private Sub Command1_Click()
If Not IsNumeric(Text1.Text) Then
    MsgBox "input angka saja"
    Else
    MsgBox "selanjutnya"
End If
End Sub

nb: tulisan yang berwarna merah bisa di ganti sesuai dengan selerah anda