PowerPoint VBA Needs to Produce White Text Not Black

[nullpointer]

I've looked around and can't locate how to persuade this VBA to produce white text and not black


Sub Text_Box_Regular()
Dim myTextBox As Shape
With ActivePresentation.Slides(1)
Set myTextBox = .Shapes.AddTextbox _
(Orientation:=msoTextOrientationHorizontal, Left:=100, Top:=50, _
Width:=400, Height:=100)
myTextBox.TextFrame.TextRange.Text = "Arial Font Text Box"
End With
End Sub

Solutions?

[Paul_Hossler]

Sub Text_Box_Regular()
Dim myTextBox As Shape
With ActivePresentation.Slides(1)
Set myTextBox = .Shapes.AddTextbox _
(Orientation:=msoTextOrientationHorizontal, Left:=100, Top:=50, _
Width:=400, Height:=100)
myTextBox.TextFrame.TextRange.Text = "Arial Font Text Box"


myTextBox.TextFrame.TextRange.Font.Color = vbWhite



End With
End Sub

[nullpointer]

Paul - THANK YOU!