Private Sub btnNext_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles btnFirst.Click
mobjCurrencyManager.Position += 1
End Sub

    Private Sub FormatDate(ByVal sender As Object, ByVal e As ConvertEventArgs)
        If Me.txtTermin.Tag <> "PARSE" Then
            e.Value = DateTime.Parse(e.Value).ToString("dd.MM.yyyy HH:mm")
        End If
    End Sub

AddHandler Me.txtTermin.DataBindings(0).Format, AddressOf Me.FormatDate

mobjCurrencyManager = CType(Me.BindingContext(dvKunden), CurrencyManager)

If it was hard to code, it should be hard to read too.