Application VisualBasic Script

Sub split()
    With ActiveWindow
        .Split = True
        .SplitVertical = 70
    End With
End Sub