' Put testing data into ListBox1
Private Sub UserForm_Activate()
  Dim a(), i&
  ReDim a(1 To 5)
  For i = 1 To UBound(a)
    a(i) = "Строка" & i
  Next
  Me.ListBox1.RowSource = ""
  Me.ListBox1.List = a
End Sub

' Move up button
Private Sub CommandButton1_Click()
  Dim x, i&
  With Me.ListBox1
    i = .ListIndex
    If i > 0 Then
      x = .List(i)
      .List(i) = .List(i - 1)
      .List(i - 1) = x
      .ListIndex = i - 1
    End If
  End With
End Sub

' Move down button
Private Sub CommandButton2_Click()
  Dim x, i&
  With Me.ListBox1
    i = .ListIndex
    If i >= 0 And i < .ListCount - 1 Then
      x = .List(i)
      .List(i) = .List(i + 1)
      .List(i + 1) = x
      .ListIndex = i + 1
    End If
  End With
End Sub