Imports System
Public Module Module1
Public Sub Main()
Dim arrValue() As Integer = New Integer(3) {}
arrValue(0) = 5
arrValue(1) = 4
arrValue(2) = 7
arrValue(3) = 1
ReDim Preserve arrValue(1)
Dim result As String = String.Join("", arrValue)
Console.WriteLine(result)
End Sub
End Module