Sub VariantStringTest()
Dim varFirstName As Variant
Dim varLastName As Variant
Dim varFullName As Variant
varFirstName = "Janine"
varLastName = Null
varFullName = varFirstName + varLastName
Debug.Print varFullName
End Sub