Toggle picktool to crosshair.... someone edit this please

Sub TG_Pick_FreehandPick_Crosshair()
Dim pickToolGuid As String
Dim freeHandPickGuid As String
Dim crossHairGuid As String
Dim dsp As DataSourceProxy
Dim currentGuid As String

pickToolGuid = "f1aee54d-c9aa-4e6f-9193-82f496b0b72b"
freeHandPickGuid = "fb9a380a-4bbb-23bd-4e45-2eeed3e485b1"
crossHairGuid = "cdrCursorSmallcrosshair"

Set dsp = Application.FrameWork.Application.DataContext.GetDataSource("WAppDataSource")
currentGuid = CStr(dsp.GetProperty("ActiveTool"))

If currentGuid = pickToolGuid Then
dsp.SetProperty "ActiveTool", freeHandPickGuid
ElseIf currentGuid = freeHandPickGuid Then
dsp.SetProperty "ActiveTool", crossHairGuid
Else
dsp.SetProperty "ActiveTool", pickToolGuid
End If
End Sub