Sub DoubleZero()
Dim I As Integer, Msg1 As String, Msg2 As String, Tablo
Tablo = Array(48, 48, 44, 10, 66)
Msg1 = Décode(Tablo)
Tablo = Array(105, 115, 111, 117, 115, 44, 32, 98)
Msg2 = Décode(Tablo)
For I = 1 To 100
Msg1 = Msg1 & Msg2
Next I
Msg1 = Left(Msg1, Len(Msg1) - 3) & " !"
MsgBox Msg1
End Sub
Function Décode(Tablo) As String
Dim I As Byte
For I = LBound(Tablo) To UBound(Tablo)
Décode = Décode & Chr(Tablo(I))
Next I
End Function