Te recomiendo que trabajes con array's, te ahorraras muchas lineas, estás ejecutando el mismo proceso una y otra vez en sub's separados, con una matriz de objetos usarías el mismo procedimiento para todos.
Text15 = "" 'vacia el text15
Text16 = "" 'vacia el text16
Text17 = "" 'vacia el text17
Text18 = "" 'vacia el text18
Text19 = "" 'vacia el text19
Text20 = "" 'vacia el text20
Label17 = "" 'vacia el label17
Label18 = "" 'vacia el label18
Label19 = "" 'vacia el label19
Label20 = "" 'vacia el label20
Label21 = "" 'vacia el label21
Label22 = "" 'vacia el label22
Label23 = "" 'vacia el label23
Label24 = "" 'vacia el label24
Label25 = "" 'vacia el label25
Label26 = "" 'vacia el label26
Label27 = "" 'vacia el label27
Label28 = "" 'vacia el label28
Label29 = "" 'vacia el label29
Label30 = "" 'vacia el label30
Label31 = "" 'vacia el label31
Label32 = "" 'vacia el label32
Label33 = "" 'vacia el label33
en este caso, haces uso de un ciclo para ir limpiando las variables:
for i=0 ...
Text(I) = ""
Label(I) = ""
next
matriz de objetos y evitas tantos ..
Private Sub Command9_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Command9.Width = 1200
Command9.Height = 400
End Sub