Найти минимальный элемент массива A(N) и поменять его местами с первым элементом массива - VB

Option Explicit
Dim i As Integer, j As Integer
Dim nMast As Integer, nDost As Integer
Dim Mast As String, Dost As String
Dim Kart(1 To 4, 6 To 14) As String
Private Sub Command1_Click()
Mast = " ПиковТрефовБубновЧервов"
Dost = "Шестёрка Семёрка  ВосьмёркаДевятка  Десятка  Валет    Дама     Король   Туз"
For i = 1 To 4
  For j = 6 To 14
      Select Case j
        Case 11, 13, 14
           Kart(i, j) = Mid(Mast, 6 * (i - 1) + 1, 6) & "ый  " & Mid(Dost, 9 * (j - 6) + 1, 9)
        Case Else
           Kart(i, j) = Mid(Mast, 6 * (i - 1) + 1, 6) & "ая  " & Mid(Dost, 9 * (j - 6) + 1, 9)
        End Select
  Next j
Next i
nMast = InputBox("Введите номер масти (от 1 до 4)", , 3)
nDost = InputBox("Введите номер достоинства (от 6 до 14)", , 12)
Print Kart(nMast, nDost)
End Sub