For example, you have the following data in worksheet called "Sheet1", at range A1...B4:
Country1 | 10 |
Country2 | 14 |
Country3 | 12 |
Country4 | 20 |
Then you can use the next example:
Dim country As String
country = "Country2"
Dim VAT As Double
VAT = -1
On Error Resume Next
VAT = Application.WorksheetFunction.VLookup(country, Sheet1.Range("A1:B4"), 2, False)
On Error GoTo 0
MsgBox VAT
It returns the value of the second column based on country variable, or -1 if the country is not found.
Adjust it for your case. Show more real details if it does not work.