Const poyas1 =  6  'на сколько часов первый пояс больше
Const poyas2 = - 16  'на сколько часов второй пояс меньше
Dim str1 As String
Dim str2 As String

Private Sub Timer1_Timer()
    
    Text1.Text = Time ' текущее время
    'время второго пояса
    If (Hour(Time) + poyas2) <  0  Then
        str2 = (Hour(Time) + poyas2) +  24 
        Text2.Text = Format(str2, "00") & ":" & Format(Minute(Time), "00") & ":" & Format(Second(Time), "00")
    Else
        Text2.Text = Format(Hour(Time) + poyas2, "00") & ":" & Format(Minute(Time), "00") & ":" & Format(Second(Time), "00")
    End If
    ' время первого пояса
    If (Hour(Time) + poyas1) >=  24  Then
        str1 = (Hour(Time) + poyas1) Mod  24 
        Text3.Text = Format(str1, "00") & ":" & Format(Minute(Time), "00") & ":" & Format(Second(Time), "00")
    Else
        Text3.Text = Format(Hour(Time) + poyas1, "00") & ":" & Format(Minute(Time), "00") & ":" & Format(Second(Time), "00")
    End If
    
End Sub