Problema con símbolo de moneda en VB

resulta que estoy modificando un punto de venta que me encontré por allí pero me he topado con el problema de que la moneda esta en pesos mexicanos y yo lo necesito con Quetzales Guatemaltecos cuyo Símbolo es QUE los decimales los modifique con la configuración regional de mi computadora y marchan bien pero el símbolo de moneda sigue siendo el de pesos intente solo sustituirlo directamente en el código pero entonces me marca errores les dejo el código de uno de los formularios para que se den una idea y me puedan sugerir o explicar mas bien como se modifica esto. De antemano muchas gracias

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.EnableCancelKey = xlDisabled
If TextBox1 <> "" Then
If TextBox2 <> "" Then
por = Val(TextBox2.Text - TextBox1.Text)
If por < 0 Then
MsgBox "Faltan: " & Format(por, "$#,##.00")
CommandButton1.SetFocus
TextBox2 = ""
TextBox2.SetFocus
End If
If por >= 0 Then
MsgBox "Entregar Cambio de: " & Format(x, "$#,##.00")
CommandButton1.SetFocus
TextBox2 = ""
TextBox2.SetFocus
With Ventas
Ventas.TextBox1 = Empty
Ventas.TextBox2 = Empty
Ventas.TextBox3 = Format(0, "$#,#.00")
Ventas.ListBox1.Clear
Cobrar.Hide
Ventas.TextBox1.SetFocus
Ventas.Label2 = 0
End With
End If
End If
End If
If TextBox1 = "" Then
Cobrar.Hide
MsgBox "No Hay Nada que Cobrar"
End If
Application.EnableCancelKey = xlInterrupt
Application.ScreenUpdating = True
End Sub
Private Sub TextBox2_Change()
aa = TextBox2.Text
If TextBox2 <> "" Then
If IsNumeric(aa) = False Then
are1 = MsgBox("Error, digitó una letra. Por favor intente de nuevo. ", , )
TextBox2.SetFocus
TextBox2 = Empty
GoTo FIN
Else
enteroa = aa - Int(aa)
End If
End If
FIN:
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Format(TextBox2, "$#,##.00")
End Sub
Private Sub UserForm_activate()
TextBox2 = ""
TextBox1 = Format(Ventas.TextBox3, "$#,#.00")
TextBox2.SetFocus
End Sub
'Evita Cerrar La Ventana
Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
If CloseMode = 0 Then
MsgBox "Use el botón CLOSE del formulario", vbInformation, " Botón No Disponible "
Cancel = 1
CloseMode = 1
End If
End Sub

necesito es cambiar esto $ por esto QUE Gracias