Dim a, c As Integer
Dim basis As Byte
Dim wert As Integer
Dim b(99) As Byte
Dim pos As Integer
Dim value As New TimeSpan(0, 0, 0, a, c)
TextBox9.Text = Convert.ToString(value)
'public static void putS5Timeat(byte[] b, int pos, TimeSpan value)
If (value.TotalMilliseconds <= 999 * 10) Then
basis =...