COMO INSERIR DOIS PONTOS EM UMA TEXTBOX

Como inserir Dois pontos em um textbox

Private Sub Txt_Debito_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)

Txt_Debito.MaxLength = 5

    If Len(Txt_Debito) = 2 Then

        Txt_Debito.Text = Txt_Debito.Text & ":"

        SendKeys "{End}", True

    End If

 

End Sub

'..................'

 

 

 

Comando Find (Procurar, localizar)

Private Sub Txt_Mat_Exit(ByVal Cancel As MSForms.ReturnBoolean)

With Plan2.Range("A:A")

Set C = .Find(Txt_Mat.Value, LookIn:=xlValues, LOOKAT:=xlWhole)

If Not C Is Nothing Then

        C.Activate

        ActiveCell.Offset(0, 19).Value = "AUDITADO"

        Lbl_Super.Caption = ActiveCell.Offset(0, 13).Value

        Lbl_debito.Caption = Format(ActiveCell.Offset(0, 21).Value, "hh:mm")

End If

If C Is Nothing Then

MsgBox "Matricula nao encontrada!!!"

End If

End With

End Sub