You may consider writing your own function which combines the two if it is something you need regularly:
Code:
Function func1(a As Range, b As Range, c As Integer, d As Integer, e As String)
func1 = Application.WorksheetFunction.ifna(Application.WorksheetFunction.VLookup(a, b, c, d), e)
End Function