Option Explicit

Private Sub Form_Load()

  Me.AutoRedraw = True
  Me.FontBold = True

  Dim variable As String
  variable = "Este texto deberia estar centrado!"

  Me.CurrentY = Me.ScaleHeight / 2 - Me.TextHeight(variable) / 2
  Me.CurrentX = Me.ScaleWidth / 2 - Me.TextWidth(variable) / 2

  Me.Print variable

End Sub