รบกวนเรื่อง ตรวจสอบค่าตัวที่ 5 ของ textbox หน่อยค่ะ (vb.net)

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim inStr As String
        Dim subStr5 As String
        inStr = Trim(TextBox1.Text)

        'try เพราะอาจเกิด error ได้ถ้ากรอกไม่ถึง 6 ตัว
        Try
            'ตัดตั้งแต่ตัวที่ 6 Lenght=1
            subStr5 = inStr.Substring(5, 1)
            If subStr5 <> "-" Then
                MsgBox("Found Format")
                TextBox1.Text = inStr.Insert(5, "-")
            End If
        Catch ex As Exception
            MsgBox("Lenght Char < 6")
        End Try
    End Sub
End Class