Private Sub TextBox3_AfterUpdate()
  Call controle(TextBox3)
End Sub

Private Sub TextBox4_AfterUpdate()
  Call controle(TextBox4)
End Sub

Private Sub TextBox5_AfterUpdate()
  Call controle(TextBox5)
End Sub

Private Function controle(ByRef Textbox As MSForms.Textbox)
'Staat er wel wat in de textbox om te controleren
  If Len(Textbox.Text) Then
    On Error Resume Next
    'Kleine hulp voor als ze geen : hebben getypt en de minuten
    Select Case InStr(Textbox.Text, ":")
    Case 0  'staat er helemaal niet in
      Textbox.Text = Textbox.Text + ":00"
    Case 1  'staat helemaal links, uren niet ingevuld
    Case Len(Textbox.Text)  'Staat helemaal rechts, minuten niet ingevuld
      Textbox.Text = Textbox.Text + "00"
    Case Else  'staat er wel in
    End Select

    'Geef de waarde terug als er een fout ga dan verder naar de volgende regel
    Textbox.Text = Format(TimeSerial(Hour(CDate(Textbox.Text)), Minute(CDate(Textbox.Text)), 0), "hh:mm")
    If Err.Number Then
      'Er is geen goede tijd formaat ingevuld
      Err.Clear
      Textbox.Text = ""
    End If
    On Error GoTo 0
  End If
End Function

Public Const KlantenGegevensBladnaam As String = "Blad2"
Public Const EersteKlantRij As Long = 2
Public Const KlantNrKolom As String = "A"
Public Const NaamKolom As String = "B"
Public Const VoornaamKolom As String = "C"
Public Const StraatKolom As String = "D"
Public Const NrKolom As String = "E"

'----------------------------------------------------------------------------------------
Private Sub ZoekKlantButton_Click()
  Dim KlantnRij As Long
  On Error Resume Next

  If IsNumeric(KlantnummerTxt.Text) Then
    With ThisWorkbook.Sheets(KlantenGegevensBladnaam)
      KlantRij = .Columns(KlantNrKolom).Find( _
                 What:=KlantnummerTxt.Text, _
                 After:=.Cells(EersteKlantRij - 1, KlantNrKolom), _
                 LookIn:=xlFormulas, _
                 LookAt:=xlPart, _
                 SearchOrder:=xlByRows, _
                 SearchDirection:=xlNext, _
                 MatchCase:=True, _
                 SearchFormat:=False).Row
      If Err.Number Then
        Err.Clear
        KlantnummerTxt.Text = ""
        MsgBox "Klant komt niet voor in de Database", vbInformation, "klant niet gevonden"
      Else
        'gevonden
        NaamTxt.Text = .Cells(KlantRij, NaamKolom).Value
        VoornaamTxt.Text = .Cells(KlantRij, VoornaamKolom).Value
        StraatTxt.Text = .Cells(KlantRij, StraatKolom).Value
        HuisNrTxt.Text = .Cells(KlantRij, NrKolom).Value
      End If
    End With
  Else
    KlantnummerTxt.Text = ""
    MsgBox "Geen geldig nummer ingevoerd!", vbCritical, "Foutje bedankt"
  End If

  On Error GoTo 0
End Sub

Private Sub SluitFormButton_Click()
  Me.Hide
End Sub