エクセルVBA

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'ここに書いたプログラムコードはワークシートの選択したセルをチェンジしたとき処理が実行されます
'
'B列の8行目に「初めまして」と文字列を表示するコードです

Range("b8") = "初めまして"

Cells(9, 2) = "初めました"

ActiveCell.Offset(2, 3) = "またお会いしました"

'==============================================================

'strという文字列型の変数を宣言してセルに表示されている文字を格納します
Dim str As String

str = ActiveCell.Offset(2, 3).Value

'======================================

'メッセージダイアログを表示させます

MsgBox str

End Sub