calcolare differenza orario di 4 texbox

[donini]

Dim data1 As Date
Dim data2 As Date
Dim data3 As Date
Dim data4 As Date
data1 = CDate(GME1.Text)
data2 = CDate(GMU1.Text)
Data3 = CDate(GPE1.Text)
Data4 = CDate(GPU1.Text)

GTO1.Text = Format((data2 - data1) + (Data4 - Data3), "hh.mm")

tramite questo codice eseguo una
operazione matematica di differenza ore provenienti da 4 textbox formato orario ,e fin qui tutto bene il problema nasce quando le textbox non hanno ore da calcolare
esempio
GME1= ( nessun orario da calcolare)
GME2=(nessun orario da calcolare)
GPE3=08:00
GPU4=12:00
mi dovrebbe restituire GTO1= 04:00
invece mi restituisce errore di runtime 13 come posso evitare questo tipo di errore

[oregon]

Mi sembra che tu abbia gia' avuto dei chiarimenti ...

http://forum.masterdrive.it/visual-b...-orario-25169/

... se non hai capito, mi sembrerebbe opportuno indicarlo nel forum dove c'e' chi si e' impegnato a risponderti ...