Bom dia

tenho que fazer a seguinte rotina:
tenho o valor de 1 hora trabalhada e tenho que calcular por quantas goras foram realizadas.

Ex: 1:00 hora = 60,99
    2:30 = ?
    4:57 = ?

como eu faço para multiplicar Hora por Moeda ?
tenho que converter os dois valores ?

Caso você precise calcular a diferença entre duas horas e saber o valor das horas :
If CDate(TxtHora1) > CDate(TxtHora2) Then
    TxtTotalH= CDate(TxtHora1) - CDate(TxtHora2) - 24
    TxtTotalH= Format(TxtTotalH, "HH:MM")
Else
    TxtTotalH= CDate(TxtHora2) - CDate(TxtHora1)
    TxtTotalH= Format(TxtTotalH, "HH:MM")
End If

TxtTotalG= Format(TxtTotalHs, "#.##0,00") * 24 * CCur(TxtSalhora) 'qto o func ganha por hora
TxtTotalG= Format(TxtTotalG, "Currency")

olha só o que eu to tentando fazer:

Text1.Text = Hour(txtHora.Text) * 60 + Minute(txtHora.Text) * CSng(txtValordahora.Text) / 60

valeu Larback