Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
TextBox5.Text = TextBox1.Text.ToString() & TextBox2.Text.ToString().Remove(2, 2) & TextBox3.Text.ToString().Remove(0, 1).Remove(2, 1) & DateTimePicker1.Value.ToString().Remove(0, 3).Remove(2, 14)
End Sub
Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged
If IsNumeric(TextBox2.Text) = False Then
If TextBox2.Text.Length = 0 Then
TextBox2.ResetText()
Exit Sub
End If
TextBox2.Text = TextBox2.Text.Remove(TextBox2.Text.Length - 1, 1)
TextBox2.SelectionStart = TextBox2.Text.Length
End If
End Sub