ExcelVBAで強制的に時間形式に変更しテキストボックスに入力する方法|【コピペで解決】

Private Sub txt_taisyab_Change()


'#############退社Bを入力中に全角の：が入力されたら半角に変換する開始#######################


    ' 入力された文字列を取得する
    Dim inputStr As String
    inputStr = Me.txt_taisyab.Value
    
    ' 全角文字「：」を半角文字「:」に変換する
    inputStr = Replace(inputStr, "：", ":")
    
    ' 変換後の文字列をテキストボックスに表示する
    Me.txt_taisyab.Value = inputStr
    
    
'#############退社Bを入力中に全角の：が入力されたら半角に変換する終了#######################
    
    
    
    
    
 '#############退社Bを入力中に全角数字が入力されたら半角に数字に変換する開始#######################
       ' 入力された文字列を取得する
    Dim inputStr2 As String
    inputStr2 = Me.txt_taisyab.Value
    
    ' 全角数字を半角数字に変換する
    Dim outputStr2 As String
    outputStr2 = ""
    Dim i As Integer
    For i = 1 To Len(inputStr2)
        Select Case Mid(inputStr2, i, 1)
            Case "０"
                outputStr2 = outputStr2 & "0"
            Case "１"
                outputStr2 = outputStr2 & "1"
            Case "２"
                outputStr2 = outputStr2 & "2"
            Case "３"
                outputStr2 = outputStr2 & "3"
            Case "４"
                outputStr2 = outputStr2 & "4"
            Case "５"
                outputStr2 = outputStr2 & "5"
            Case "６"
                outputStr2 = outputStr2 & "6"
            Case "７"
                outputStr2 = outputStr2 & "7"
            Case "８"
                outputStr2 = outputStr2 & "8"
            Case "９"
                outputStr2 = outputStr2 & "9"
            Case Else
                outputStr2 = outputStr2 & Mid(inputStr2, i, 1)
        End Select
    Next i
    
    ' 変換後の文字列をテキストボックスに表示する
    Me.txt_taisyab.Value = outputStr2
    
'#############退社Bを入力中に全角数字が入力されたら半角に数字に変換する終了#######################
    
    
    
End Sub