Change this line:
Code:
If rButton.Text.ToUpperInvariant = CStr(countryPic(random)).ToUpperInvariant Then
to

Code:
If rButton.Text.ToUpperInvariant = CStr(countryPic(random)).ToUpperInvariant.SubString(0, CStr(countrypic(random)).length-4) Then