Private Sub Command_start_Click()

Dim arraymåneder(1 To 12) As String

arraymåneder(1) = "Januar"
arraymåneder(2) = "Februar"
arraymåneder(3) = "Marts"
arraymåneder(4) = "April"
arraymåneder(5) = "Maj"
arraymåneder(6) = "Juni"
arraymåneder(7) = "Juli"
arraymåneder(8) = "August"
arraymåneder(9) = "September"
arraymåneder(10) = "Oktober"
arraymåneder(11) = "November"
arraymåneder(12) = "December"

MsgBox arraymåneder(Text_tal)

End Sub