vba: VLookUp Function in one userform

Hi, saikong051,

maybe try

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
  Dim var As Variant
  On Error Resume Next
  var = WorksheetFunction.VLookup(CStr(TextBox1.Value), Sheets("Nickname").Range("A:B"), 2, 0)
  On Error GoTo 0
  If IsEmpty(var) Then
    fnameresult.Value = ""
  Else
    fnameresult.Value = var
  End If
End Sub

Ciao,
Holger