Visual Basic - ayuda con el código

Saludos a todos:
Visual Basic 6.0
Private Sub CmdAceptar _Click ()
Dim HorasTrabajadas As Integer
Dim PagoPorHora As Double
Dim SalarioBruto As Double
Dim Descuento As Double
Dim SalarioNeto As Double

HorasTrabajadas=Val(TextHorasTrabajadas)
PagoPorHora=Val(textPagoPorHora)
SalarioBruto=HorasTrabajadas*PagoPorHora
Descuento=SalarioBruto*0.2
SalarioNeto=SalarioBruto-Descuento

TextSalarioBruto=Str(SalarioBruto)
TextDescuento=Str(Descuento)
TextSalarioNeto=Str(SalarioNeto)
End Sub
Son 5 cuadros de texto(TextBox)
En HorasTrabajadas escribo manualmente 48
En PagoPorHora escribo manualmente 10
Y doy click el botón comando(Aceptar)
Me da como resultado en:
SalarioBruto=0
Decuento=0
SalarioNeto=0
¿Alguien por favor, me podría indicarr en donde está el error?
De antemano mil gracias

* Te recomiendo siempre usar en la declaración general Option Explicit.

* O Usar .Text con los TextBox.

* Creo que el problema es simplemente que 'textPagoPorHora' esta actuando como un Variant y no como un TextBox, asegúrate de haber escrito correctamente el nombre de tu TextBox.

Aquiles gracias por contestar:
Voy a seguir tu comentario, en dado caso que no llegue el resultado esperado, ¿te vuelvo a molestar?
Saludos : desde el Aeropuerto Internacional de la Ciudad de México

Aquiles:
Perfecto, solucionado, felicidades. con (el comando CmdAceptar)
Aunque tengo duda con Option Explict. (De donde sale, perdón por la ignorancia)
Gracias.

option explicit es una instruccion que se pone al inicio de cada pagina de codigo. Ésto obliga al usuario a instanciar sus variables para que pueda ejecutar su aplicativo.

Es decir, si tu tienes lo siguiente

option explicti

private sub command1_click()

for i=0 to 10

next i

end sub

cuando lo ejecutes te saldrá error. Para que no salga error tu codigo debe quedar

option explicti

private sub command1_click()
dim i as integer '-->se agrego la linea de declaracion de variable
for i=0 to 10

next i

end sub

Gracias Jaime Guerrero por tu colaboración, infinitamente te agradezco.

hola juan el error esta en que estas haciendo cuentas y al regresar la cantidad total
deseas recibir una cadena(str) en TextSalarioBruto,textdescuento,TextSalarioNeto,
y como estas trabajando con numeros te regresa un 0(false) al leerlos como cadenas

Private Sub CmdAceptar _Click ()
Dim HorasTrabajadas As Integer
Dim PagoPorHora As Double
Dim SalarioBruto As Double
Dim Descuento As Double
Dim SalarioNeto As Double

HorasTrabajadas=Val(TextHorasTrabajadas)
PagoPorHora=Val(textPagoPorHora)
SalarioBruto=HorasTrabajadas*PagoPorHora
Descuento=SalarioBruto*0.2
SalarioNeto=SalarioBruto-Descuento

TextSalarioBruto=Str(SalarioBruto) ' error
TextDescuento=Str(Descuento) ' error
TextSalarioNeto=Str(SalarioNeto) ' error
End Sub

------------------------------------------------------------------------
sin el error

Private Sub CmdAceptar_Click()
Dim HorasTrabajadas As Integer
Dim PagoPorHora As Double
Dim SalarioBruto As Double
Dim Descuento As Double
Dim SalarioNeto As Double

HorasTrabajadas = Val(TextHorasTrabajadas)
PagoPorHora = Val(textPagoPorHora)
SalarioBruto = HorasTrabajadas * PagoPorHora
Descuento = SalarioBruto * 0.2
SalarioNeto = SalarioBruto - Descuento

TextSalarioBruto = Val(SalarioBruto)
TextDescuento = Val(Descuento)
TextSalarioNeto = Val(SalarioNeto)
End Sub