Attribute VB_Name = "testif3"
Sub テスト()
    Dim x As String
    
    x = "大阪"
    
    If x = "東京" Then
        Range("A1").Value = "お住まいは東京です"
    ElseIf x = "大阪" Then
        Range("A1").Value = "お住まいは大阪です"
    ElseIf x = "名古屋" Then
        Range("A1").Value = "お住まいは名古屋です"
    Else
        Range("A1").Value = "お住まいは分かりません"
    End If

End Sub