Appliquer une variable

Dim t As Single
t = MoveImages.Controls("Image3").Top

Dim t As Single
t = 32.695
MoveImages.Controls("Image3").Top = t

Sub bas()
 Application.ScreenUpdating = False
    For n = 1 To 4
        MoveImages.Controls("Image" & n).Visible = n = 3
    Next n
    If PosT > 0 Then: MoveImages.Message.Visible = False

    With MoveImages.Controls("Image3")
        .Left = PosL
        .Top = PosT
        .Top = .Top + 1
        If .Top < 0 Then .Top = .Top + 1
        PosL = .Left
        PosT = .Top
    End With
    If MoveImages.Controls("Image5").Visible = True Then
   MoveImages.Controls("Image3").Top = MoveImages.Controls("Image5").Top
    MoveImages.Controls("Image5").Visible = False
    Total = Total + 100
    MoveImages.Points.Caption = Total
    End If
    
    If MoveImages.Controls("Image5").Visible = False Then
    Total = Total + 0
    MoveImages.Points.Caption = Total
    Exit Sub
    End If
Application.ScreenUpdating = True