VBS - ermitteln der ActiveCell (Offsets)

Set Shell = WScript.CreateObject("WScript.Shell")  
Result = Shell.AppActivate("Microsoft Excel")  

columnOffset = 0
rowOffset = 0

If Result = True Then
	Set xExcel = GetObject(, "Excel.Application")  
	Answer = MsgBox("In aktive Arbeitsmappe einfügen?", 4)  
		If Answer = vbYes Then
			Call setValue(3, 3, "Teafdaffafsafxt")  
			columnOffset = ERMITTELN DER ACTIVECELL?
			rowOffset =  ERMITTELN DER ACTIVECELL?
		Else
			xExcel.Quit
		End If
End If

Sub setValue(ByVal ColumnNumber, ByVal RowNumber, ByRef Value)
    ColumnNumber = ColumnNumber + columnOffset
    RowNumber = RowNumber + rowOffset
    xExcel.ActiveWorkbook.ActiveSheet.Cells(RowNumber, ColumnNumber) = value
End Sub