Sub Sample()

　  Dim myMsg As String

　  myMsg = "こんにちは"

　  Range("A1").Value = myMsg

End Sub
