Mengunci huruf lain selain Angka pada TextBox

Mungkin cukup susah untuk mengunci huruf lain selain angka pada textbox. Kali ini saya akan berbagi cara mengunci huruf lain selain Angka pada TextBox copy-kan coding dibawah ini.

Private Sub Text1_KeyPress(KeyAscii As Integer)

Select Case KeyAscii
Case 8, 13, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59
Text1.Locked = False
Case Else
Text1.Locked = True
End Select
End Sub

Selamat Mencoba, Semoga Bermanfaat.