Private Sub tbxItemText_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
  Select Case KeyCode
    Case vbKeyReturn, vbKeyTab
      With tbxPrice
        .SetFocus
        .SelStart = 0
        .SelLength = 4
      End With
      KeyCode = 0
  End Select
End Sub

Private Sub UserForm_Initialize()
  tbxPrice.Text = "0.00"
End Sub