Упорядочить по возрастанию элементы каждой строки матрицы - VB

Private Sub Command1_Click()
Dim a() As Single, n As Byte, m As Byte
n = InputBox("n")
m = InputBox("m")
answer = ""
ReDim a(1 To n, 1 To m) As Single
For i = 1 To n
For j = 1 To m
a(i, j) = Int(100 * Rnd)
answer = answer & a(i, j) & "   "
Next j
answer = answer & Chr(13)
Next i
MsgBox answer
answer = ""
For i = 1 To n
For j = 1 To m
For k = 1 To m - 1
If a(i, k) > a(i, k + 1) Then
temp = a(i, k)
a(i, k) = a(i, k + 1)
a(i, k + 1) = temp
End If
Next k
Next j
Next i
For i = 1 To n
For j = 1 To m
answer = answer & a(i, j) & "   "
Next j
answer = answer & Chr(13)
Next i
MsgBox answer
End Sub