UserFormのTextBoxの入力規制

Question

UserFormのTextBoxに0～9と/のみを入力する方法はわかるのですが

最初の文字が/の場合は入力出来ないようにするにはどのようなコードを書けばいいのでしょうか。

現状は下記コードです。

Private myText As String

'--------------------------------------

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Select Case KeyAscii.Value

    Case VBA.Asc("0") To VBA.Asc("9"), VBA.Asc("/")

        myText = Me.TextBox1.Value

    Case Else

        KeyAscii.Value = 0

End Select

End Sub

よろしくお願いします。

Answer 1

文字が/の場合を別にして、許可するかどうかはTextBox中の文字列の長さが0かどうか判定すればよろしいかと思いますが。

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

 Select Case KeyAscii.Value

     Case VBA.Asc("0") To VBA.Asc("9")

         myText = Me.TextBox1.Value

     Case VBA.Asc("/")

         If Len(Me.TextBox1.value) > 0 Then

           myText = Me.TextBox1.Value

         Else

           KeyAscii.Value = 0

         End If

     Case Else

         KeyAscii.Value = 0

 End Select

 End Sub

Answer 2

ありがとうございました。

解決いたしました。