connum = Application.WorksheetFunction.VLookup _
(currentletter, Worksheets("Sheet1").Range("A1:b26"), 2)

I have 2 input boxes where a user enters a word in each. I need to
convert
that word to the keys that would have to be pressed on a mobile phone to
see
if both words would require the same keystrokes. what I have so far is:

You should be able to eliminate the spreadsheet interaction completely. Show
us what is in Range("A1:B26").

Rick