• Home
 · 
• Miscellaneous
 · 
• This will change miles to Feet quickly with quick keys like enter!

This will change miles to Feet quickly with quick keys like enter!

This will change miles to Feet quickly with quick keys like enter!

Rate This will change miles to Feet quickly with quick keys like enter!

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

  txtTotal = ""
  txtEnter = ""
End Sub

Private Sub mnuConvert_Click()
  txtTotal = txtEnter / 5280
  txtTotal = Format$(txtTotal, "General Number")
  
End Sub

Private Sub mnuExit_Click()
  End
End Sub


Private Sub txtEnter_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then
     txtTotal = txtEnter / 5280
     txtTotal = Format$(txtTotal, "General Number")
  End If
End Sub