• Home
 · 
• OLE/COM/DCOM/Active-X
 · 
• Accepting Numeric Values.

Accepting Numeric Values.

Accepting Numeric Values.

Rate Accepting Numeric Values.

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Select Case KeyAscii
  Case 8
    Exit Sub
  Case 46
    If InStr(1, txtANum, ".") > 0 Then
      KeyAscii = 0
    Else
      Exit Sub
    End If
  Case Is < 48, Is > 58
    KeyAscii = 0
End Select
End Sub