Masukkan rumus dibawah ini
Private Sub TextBox4_Change()
If Len(TextBox4.Value) = 2 Then
t = TextBox4.Value
t = t & "-"
TextBox4.Value = t: t = ""
ElseIf Len(TextBox4.Value) = 5 Then
t = TextBox4.Value
t = t & "-"
TextBox4.Value = t: t = ""
End If
End Sub