Dim strMoveDim blnAskedstrMove = "DOUBLEKICK"Sub Strategy() SetStatus ("Using " & strMove & "...") Attack (strMove)End Sub