Simpel, tijd berekenings tooltje?

[helpendehand123]

Beste,

Voor een projectje (en uiteraard wat opdoen van ervaring met vba) ben ik bezig een tooltje te maken dat wat tijden berekend.
Ik wil in de bovenste TextBox (InputTime) een tijd invoeren. (Deze moet ik nog "Dim as Date" doen denk ik?)
Daarna kan je met een uit een dropdown menu kiezen of je een positief tijd verschil hebt, of een negatief tijdsverschil met daarna een SpinButton (gekoppeld aan TimeDifference) om te kunnen kiezen tussen tijden van 01:00 tot 12:00.
Het resultaat daarvan wil ik direct laten zien in TextBox3 (ReferenceTime).

Het beste berekenen?
Om een wat beter beeld te vormen hieronder de VBA Code die ik tot nu toe heb gebruikt en als bijlage een (niet al te netjes) screenshotje.

Ik hoop dat iemand er iets mee kan.

Met vriendelijke groet
Sjors

---

Sub SpinButton1_Change()
'[WORKING] Controls the textbox which shows the timedifference from UTC time.
    TimeDifference.Text = Format(SpinButton1.Value / 288, "hh:mm")
End Sub
[HR][/HR]
Private Sub CancelButton_Click()
'[WORKING] Cancels the calculation and starts over the program again.
    Unload Me
    UserForm1.Show
End Sub
[HR][/HR]
'Code for InputTime
Private Sub UserForm_Initialize()
    InputTime.ForeColor = &HC0C0C0 '<- Grey Color
    InputTime.Text = "Ex: 13:00"
    CommandButton1.SetFocus '<- This is required so that the focus moves from TB
End Sub
[HR][/HR]
'Code for InputTime
Private Sub InputTime_Enter()
    With InputTime
        If .Text = "Ex: 13:00" Then
            .ForeColor = &H80000008 '<- Black Color
            .Text = ""
        End If
    End With
End Sub
[HR][/HR]
'Code for InputTime
Private Sub InputTime_AfterUpdate()
    With InputTime
        If .Text = "" Then
            .ForeColor = &HC0C0C0
            .Text = "Ex: 13:00"
        End If
    End With
End Sub

'The three InputTime codes, shows the example text in the textbox before typing in it.

 

[OctaFish]

Het Excel bestandje lijkt mij beter als bijlage .