Visual Basic - codigo de mi programa ayuda

Bueno el problema que tengo es que no puedo darle a enter para que siga con el codigo, please help me.

--cree 4 label y un textbox
*nombres de los 4 labels
1) lblpress
2)lbl1
3) lbl2
4) lblCambio
*nombre del textbox
5) txttaza

Option Explicit
Public taza As Double
Public pesos As Double
Public dollars As Double

Private Sub Form_Load()
lblpress.Caption = " Presione para convertir:"
lbl1.Caption = " 1) De Pesos a Dollars"
lbl2.Caption = " 2) De Dollars a Pesos"

End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 49 Then
lblpress.Visible = False
lbl1.Visible = False
lbl2.Visible = False
lblCambio.Caption = " Introduzca la taza de compra"
lblCambio.Visible = True
txttaza.Visible = True

'Aqui esta el problema
taza = Val(txttaza)
Do
If KeyAscii = 13 Then
lblCambio.Caption = "Introuduzca la cantidad de dollars decea cambiar:"
dollars = txttaza
lblCambio.Caption = "Esta es la cantidad en Dollars:"
txttaza = (dollars * taza)

End If
DoEvents
Loop Until KeyAscii = 13
End If
End Sub
'solamente puse el codigo del numero uno porque con ese
'mismo puedo hacer el del numero dos.

Parte del problema esta en el bucle Do.

Cuando entras en dicho bucle hay dos posibilidades:
que KeyAscii valga 13 o no, si no vale 13 nunca va a valer 13, continuará con el valor que tenía a la entrada de bucle, por mucho que pulses enter, pues el evento que se produce una vez por cada pulsación, y el programa se queda ejecutando dicho bucle hasta que pares la ejecución del programa.

Lo lógico es que controles que tecla se a pulsado mediante sentencias IF o SELECT.

Private Sub Form_KeyPress(KeyAscii As Integer)
select case
Case 49
If KeyAscii = 49 Then
lblpress.Visible = False
lbl1.Visible = False
lbl2.Visible = False
lblCambio.Caption = " Introduzca la taza de compra"
lblCambio.Visible = True
txttaza.Visible = True

Case 13
lblCambio.Caption = "Introuduzca la cantidad de dollars decea cambiar:"
dollars = txttaza
lblCambio.Caption = "Esta es la cantidad en Dollars:"
txttaza = (dollars * taza)
end select
end sub

Pero al form debes cambiar la propiedad KeyPreview=True, sino la tecla le llega directo al objeto y no al form.

Ahora mismo estoy en un cyber , pero desde que llegue a mi casa lo intentare el codigo. gracias Jsanabria123.

si funciona te digo, y gracias a los demas por su ayuda Jorge