'----------------------------------------------------------------------------------------------------
Function AfterPos1(pos, InputBuffer)
	AfterPos1 = InputBuffer
End Function
'----------------------------------------------------------------------------------------------------

Dim originalStr
Dim processedStr

originalStr = "5013 184246E40201001"
processedStr = AfterPos1(21, originalStr)
WScript.echo(originalStr)
WScript.echo(processedStr)

' Το 21 που βάζω όταν καλώ την AfterPos1, είναι η θέση του χαρακτήρα τερματισμού μέσα στο string
' Για να τρέξει το script πρέπει να έχει όνομα με κατάληξη .vbs, πχ: sc1.vbs
' Έτσι, από command-line (εφόσον είσαι στο φάκελο που υπάρχει το script) τρέχεις
' cscript sc1.vbs