---

Option Explicit
Dim x(4) As String

Private Sub Form_Load()
Dim result As String
x(0) = "A"
x(1) = "B"
x(2) = "C"
result = Concat(x)
MsgBox result
End Sub

Function Concat(a() As String) As String
Dim temp As String
Dim i As Integer
For i = 0 To UBound(a)
temp = temp & a(i)
Next i
Concat = temp
End Function

---

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.