Visual Basic w Excelu - wyświetlenie wyniku

[Harrolfo]

Witam,

Co poprawić w tym kodzie, aby po pobraniu wartości z Excela (co działa) wyświetlono wynik jako nowe okno bądź plik txt?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim identyfikator As Integer
Dim haslo As String
Dim a As Integer
Dim b As Integer
a = 2
b = 2
identyfikator = InputBox("Podaj identyfikator")
haslo = InputBox("Podaj haslo")
For a = 2 To 5
For b = 2 To 5
If (identyfikator = Worksheets("Arkusz1").Cells(1, a) & haslo = Worksheets("Arkusz1").Cells(a, b)) Then
MsgBox (Worksheets("Arkusz1").Cells(1, 3) & Worksheets("Arkusz1").Cells(1, 4) & Worksheets("Arkusz1").Cells(1, 5) & Worksheets("Arkusz1").Cells(1, 6) & Worksheets("Arkusz1").Cells(1, 7))
MsgBox (Worksheets("Arkusz1").Cells(a, 3) & Worksheets("Arkusz1").Cells(a, 4) & Worksheets("Arkusz1").Cells(a, 5) & Worksheets("Arkusz1").Cells(a, 6) & Worksheets("Arkusz1").Cells(a, 7))
End If
Next b
Next a
End Sub