Sub メールアドレスのユーザー名のみを取得する()

    メールアドレス = "sample@xxxxxx.com"
    
    アットマーク何文字目 = Application.WorksheetFunction.Find("@", メールアドレス)
    
    ユーザー名 = Left(メールアドレス, アットマーク何文字目 - 1) '@の1文字前まで取得
    
    MsgBox ユーザー名

End Sub