在VB编程中，可以使用以下几种方法来实现每五个数换行：
使用`Print`语句和条件判断
```vb
Dim i As Integer
For i = 1 To 100
Print i,
If i Mod 5 = 0 Then
End If
Next i
```
这段代码会打印1到100之间的数字，每五个数字换一行。
使用`Print`语句和换行符
```vb
Dim i As Integer
For i = 1 To 100
Print i,
If i Mod 5 = 0 Then
Print vbCrLf ' 使用vbCrLf作为换行符
End If
Next i
```
这段代码同样会打印1到100之间的数字，每五个数字换一行，但使用了`vbCrLf`作为换行符。
使用`Space`函数
```vb
Dim i As Integer
For i = 1 To 100
Print i, Space（8） ' 打印数字i后跟8个空格
If i Mod 5 = 0 Then
End If
Next i
```
这段代码会打印1到100之间的数字，每五个数字换一行，数字之间用8个空格分隔。
使用数组和循环
```vb
Dim numbers（） As Integer
ReDim numbers（49）
For i = 0 To 49
numbers（i） = i + 1
Next i
Dim j As Integer
For j = 0 To 49
Print numbers（j）
If （j + 1） Mod 5 = 0 Then
End If
Next j
```
这段代码会生成一个包含50个数字的数组，并每五个数字换一行打印。
这些方法都可以实现每五个数换行的需求，你可以根据自己的需求和编程习惯选择合适的方法。