text ausgeben

hallo, hab mal angefangen mir ein kleines spiel zu schreiben. bin absoluter anfäger, arbeite mit vb2005expressEdition und hab da ein problem. der untenstehende code funktioniert soweit. mein problem besteht darin das ich die ausgabe nicht in einer msgbox haben möchte.

die ausgabe soll unterhalb des btKampf stehen und auf der form1 fest verankert sein. für eure hilfe bin ich wie immer dankbar.   



Public Class Form1
   -> DEKLARATIONEN:
   -> --------------
   -> Gurndwerte des Kriegers
    Dim Le_Krierger = 40
    Dim attWertKrieger = 16

   -> Grundwerte des Zwergen
    Dim Le_Zwerg = 40
    Dim parWertZwerg = 5

   -> Allgemeine Grundwerte
    Dim runde = 1


    Private Sub Kampf_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Kampf.Click
       -> AUSFÜHRUNG:
       -> -----------
       -> Der Krieger Attackiert den Zwergen
        Do
           -> Runden zählen, anzeigen und Kampf beenden
            Dim intCancel = MsgBox(runde & . Runde, MsgBoxStyle.OkCancel)
            If intCancel = vbCancel Then
                Exit Do
            End If
            runde = runde + 1

           -> der krieger attackiert
            Dim AttackeWurf = Wuerfel(1, 20)
            If Attacke(AttackeWurf, attWertKrieger) = 1 Then
                MsgBox(AttackeWurf & Attacke Krieger gelungen)
            Else
                MsgBox(AttackeWurf & Attacke Krieger fehlgeschlagen)
            End If

           -> Attacke abbruch: der Krieger hat einen zu hoch gewürfelt
            If AttackeWurf > attWertKrieger Then
                MsgBox(Der Zerg ist dran)
                Exit Do
            End If

           -> der Zwerg pariert
            Dim ParadeWurf = Wuerfel(1, 20)
            If Parade(ParadeWurf, parWertZwerg) = 1 Then
                MsgBox(ParadeWurf & Parade Zwerg gelungen)
            Else
                MsgBox(ParadeWurf & Parade Zwerg fehlgeschlagen)
            End If

           -> Vergleich Attacke - Parade
            If Attacke(AttackeWurf, attWertKrieger) = 1 And Parade(ParadeWurf, parWertZwerg) = 1 Then
                MsgBox(Die Attacke wurde Pariert)
            End If
            If Attacke(AttackeWurf, attWertKrieger) = 1 And Parade(ParadeWurf, parWertZwerg) = 2 Then
                MsgBox(Treffer)
            End If
        Loop
    End Sub

   -> FUNKTIONEN:
   ->------------
   -> Würfel
    Function Wuerfel(ByVal Untergrenze, ByVal Obergrenze)
        Randomize()
        Wuerfel = Int((Obergrenze - Untergrenze + 1) * Rnd() + Untergrenze)
    End Function

   -> Attacke
    Function Attacke(ByVal attWurf, ByVal attWert)
        If attWurf <= attWert Then
            Attacke = 1
        Else
            Attacke = 2
        End If
    End Function

   -> Parrade
    Function Parade(ByVal parWurf, ByVal parWert)
        If parWurf <= parWert Then
            Parade = 1
        Else
            Parade = 2
        End If
    End Function


    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class


' TEMP (hier muss alles grün sein)
' -------------------------------
', ByVal parWurf, ByVal parWert

' Attackepatzer
'            If AttackeWurf = 20 Then
'               MsgBox(Schwerer Attackepatzer)
'          End If

' Paradepatzer
'         If AttackeWurf = 20 Then
'            MsgBox(Schwerer Paradepatzer)
'       End If