FORMAT TEXTBOX HANYA UNTUK ANGKA VBA

 Berikut script untuk format textbox hanya bisa di isi dengan angka :

If TypeName(Me.ActiveControl) = "TextBox" Then
        With Me.ActiveControl
            If Not IsNumeric(.Value) And .Value <> vbNullString Then
                'DISINI UNTUK PESAN HANYA UTK ANGKA
                MsgBox "Masukan HANYA ANGKA"
                .Value = vbNullString
            End If
        End With
    End If